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FOREWORD 


At  the  request  of  the  Joint  Tactical  Information  Distribution  System 
(JT1DS),  Joint  Program  Office  (JPO),  the  Air  Force  Avionics  Laboratory 
undertook  this  programming  language  comparison  effort.  The  overall  objective 
was  to  compare  the  relative  efficiencies  of  JOVIAL-73/I  and  Assembly 
Language  coding  for  the  AN/AYK-15  airborne  computer.  This  effort  was^ 
conducted  in-house  by  the  Digital  Avionics  Information  System  (DAIS) 

Project  Office  of  the  System  Avionics  Division.  The  algorithms  were  coded 
by  Mr.  John  Garrett,  and  the  analysis  and  report  writing  were  performed 
by  Mr.  William  L.  Trainor  and  Mr.  Mike  Burlakoff. 
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SECTION  I 


INTRODUCTION 

This  report  was  generated  to  document  the  results  of  an  in-house  study 
effort  conducted  by  the  Digital  Avionics  Information  System  (DAIS)  Project 
Office,  System  Avionics  Division,  Air  Force  Avionics  Laboratory.  This 
effort  was  undertaken  to  support  the  JPO/MITRE  1976  Summer  Study  which  is 
attempting  to  define  a data  processing  strategy  for  the  Joint  Tactical 
Information  Distribution  System  (JTIDS)  project.  The  objective  of  the 
DAIS  support  effort  was  to  obtain  and  analyze  language  efficiency  data 
n the  usage  of  the  JOVIAL-73/I  language  as  compared  to  assembly  language 
programming.  In  particular,  two  algorithms  (see  appendices  "A"  and  "B") 
were  chosen  that  were  considered  to  be  typical  of  the  computational  and 
data  extraction  activities  central  to  the  JTIDS  data  processing  environment. 
In  turn  these  two  algorithms  were  coded  in  both  JOVIAL-73/I  and  assembler 
language  for  the  AN/AYK-15  airborne  computer,  and  information  was  obtained 
on  the  programmer's  coding  time,  the  computer  storage,  and  the  execution 
time  requirements. 

As  a part  of  the  overall  JPO/MITRE  Study,  the  data  of  this  report 
will  be  used  as  an  input  to  defining  the  JTIDS  data  processing  strategy. 
Similar  coding  comparison  efforts  are  concurrently  underway  implementing  the 
same  algorithms  in  COBOL,  FORTRAN,  and  the  JTIDS  Standard  Instruction  Set. 


I 
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SECTION  II 


COMPARISON  PROCEDURES 


PROCEDURES 

The  two  JTIDS  algorithms  were  each  coded  in  both  JOVIAL-73/I  and 
assembler  language,  and  in  turn,  the  four  resultant  programs  were  compiled 
for  the  AN/AYK.-15  airborne  computer.  For  this  effort,  the  following  salient 
features  are  notable: 

1.  The  coding  was  performed  by  an  experienced  programmer,  following 
the  normal  DAIS  program  production  processes.  Only  one  programmer  was 
involved,  and  he  performed  both  the  JOVIAL-73/I  and  assembly  language 
coding.  This  individual  was  slightly  more  proficient  with  the  JOVIAL-73/I 
language  than  the  AN/AYK-15  Assembly  Language,  however  this  difference 
was  considered  very  minimal. 

2.  The  programs  were  developed  to  the  point  that  error-free  compilations 
were  available,  and  no  attempts  were  made  to  debug  the  actual  logic  of 

the  routines.  Note  that  the  "execution  time"  data  obtained  was  by  a 
manual  process  of  adding  instruction  times  and  not  by  actual  program 
executions . 

3.  A log  was  kept,  to  the  nearest  half-hour,  of  programmer  time 
spent  on  each  algorithm.  This  time  includes  only  that  required  to  code  thf 
particular  algorithms  and  correct  them  to  the  point  of  obtaining  error-fre 
compilations.  It  does  not  include  the  time  required  for  data  analysis  an< 
report  writing. 
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SECTION  II 


COMPARISON  PROCEDURES 


PROCEDURES 
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language  than  the  AN/AYK-15  Assembly  Language,  however  this  difference 
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4.  The  storage  and  run-time  requirements  for  the  sine/cosine 
procedures  were  not  included  in  the  data.  However,  the  calling-conventions 
overhead  is  included  as  part  of  the  data. 

5.  The  algorithm  development  efforts  were  performed  in  an  interactive, 
time-shared  environment  using  the  DEC-10  computer  system.  The  programmer 
was  responsible  for  coding  the  algorithm,  entering  the  source  lines  via 

a time-share  terminal  using  a text  editor,  and  compiling  these  programs  via 
the  same  time-share  facilities. 

In  order  to  make  the  resultant  data  as  directly  comparable  as  possible, 
several  coding  "ground  rules"  were  followed  for  both  the  assembly  language 
efforts  and  JOVIAL-73/I  efforts.  These  were: 

1.  A standard  procedure-linkage  convention  was  selected  and  was 
used  for  both  the  JOVIAL-73/I  and  assembly  language  implementations. 

2.  The  flowcharts  and  algorithm  information  supplied  by  the  JTIDS 
office  was  followed  exactly  for  both  the  JOVIAL-73/I  and  assembly  language 
implementations.  One  variation  was  taken  with  the  "ACCEPT/HASH/STORE" 
algorithm  which  resulted  in  a restructuring  of  the  logic  (see  Appendix  "C"), 
but  this  program  (MBLT1)  was  separately  documented. 

3.  No  explicit  attempts  were  made  to  optimize  the  coding  other 
than  the  use  of  "normal"  coding  practices. 

ALGORITHMS : Two  algorithms  were  implemented  as  these  were  supplied  by  the 

JTIDS  Project  Office.  Each  is  briefly  discussed  below.  A more  complete 
description  is  given  in  Appendices  "A"  and  "B",  and  those  descriptions  are 
in  essence  the  level  of  information  given  to  the  programmer. 
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1.  Algorithm  #1,  Coordinate  Conversion:  This  algorithm  is  a very 

straight-forward,  mathematically  oriented  algorithm  using  mainly  algebraic 
and  trigonometric  relationships.  Little  or  no  "logic"  is  required  for  this 
code.  The  algorithm  is  designed  to  convert  from  the  latitude  and  longitude 
reference  frame  of  JTIDS  messages  to  the  flat  coordinate  reference  frame 
used  by  SAGE,  E-3A,  or  485L.  Appendix  "A"  contains  the  detailed  description 
of  this  algorithm  along  with  the  resultant  JOVIAL-73/I  code  (procedure 

name  EQUA)  and  assembly  language  code  (procedure  name  EQUAMB) . 

2.  Algorithm  #2,  ACCEPT/HASH/STORE:  Contrary  to  the  coordinate 

conversion  problem  above,  the  second  algorithm  is  almost  entirely  "logic" 
and  little  or  no  mathematical  computation.  The  algorithm  examines  a 
received  JTIDS  message  for  the  LIBRARY  or  INPUT  MESSAGE  MANAGEMENT  function, 
and  codes  bits  to  indicate  whether  the  message  uses  simulated  or  live  data 
and  whether  it  contained  friendly  or  hostile  ground,  air  or  sea  data,  etc. 

This  algorithm  was  implemented  in  two  ways: 

a.  The  flow  charts  were  first  implemented  with  logic  exactly  as 
received  from  the  JTIDS  office.  These  results  are  contained  in  Appendix 

"B".  The  procedure  ACHAST  is  the  assembly  language  version,  and  the  procedure 
MBLT  is  the  JOVIAL-73/I  version. 

b.  The  flow  chart  was  next  modified  to  implement  a more  "structured" 
algorithm  per  the  guidelines  of  structured  programming.  The  resulting  flow 
chart  and  listing  (JOVIAL-73/I  only)  is  contained  in  Appendix  "C".  This 
procedure  is  entitled  MBLT1. 


SECTION  III 


RESULTS  AND  CONCLUSIONS 


Results : Table  1 is  a compilation  of  the  results  obtained.  The  six  rows 

of  this  table  indicate  the  fc  lowing: 

a.  Rows  one  and  two  are  the  assembly  language  and  JOVIAL-73/I 
versions,  respectively,  of  Algorithm  #1,  Coordinate  Conversion.  The 
"execution  time"  data  is  a result  of  a manual  addition  of  AN/AYK-15  instruction 
times  for  each  object  code  instruction  produced  by  the  language  translators. 

b.  Rows  three  and  four  are  the  assembly  language  and  JOVIAL-73/I 
versions,  respectively,  of  Algorithm  //2,  ACCEPT/RASH/STORE.  Representative 
execution  time  data  could  not  be  obtained  for  this  algorithm  due  to  the 
large  number  of  possible  control  paths  present  in  the  algorithm. 

c.  Row  five  is  a JOVIAL-73/I  implementation  of  a "structured 
programming"  version  of  Algorithm  #2,  ACCEPT/HASH/STORE. 

d.  Row  six  is  the  relevant  data  (programmer  time)  required  for 
construction  of  the  needed  COMPOOL.  This  COMPOOL  is  used  with  both  the 
assembly  language  and  JOVIAL-73/I  implementations,  and  the  COMPOOL  time 

should  be  added  to  the  times  above  to  obtain  total  representative  time  estimates 
when  "starting  from  scratch." 

Conclusions:  The  following  major  conclusions  and  observations  apply. 

1.  An  approximate  10%  inefficiency  is  incurred  with  the  JOVIAL-73/I 
implementations.  These  results  compare  favorably  with  other  results 
published  for  other  comparable  HOL's  that  have  indicated  a 10%  to  20%  range. 

This  inefficiency  appears  to  hold  both  for  memory  usage  and  execution  time. 
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2.  The  programmers  productivity  is  markedly  better  in  JOVIAL-73/I; 
better  than  twc  one. 

3.  The  JOVIAL-73/I  implementations  are  much  easier  to  read  and 
interpret  than  the  assembly  language  versions.  The  reliability,  maintainabi 1 it 
and  "modifiability"  should  likewise  be  much  better  for  the  JOVIAL-73/I 
versions. 

4.  With  more  programmer  time  allotted,  both  the  JOVIAL-73/I  and 
assembly  language  versions  could  be  improved,  efficiency  wise. 

5.  The  major  inefficiency  with  the  JOVIAL-73/I  versions  appears 
to  be  in  sub-optimal  usage  of  the  available  registers.  With  an  improved 
optimizer  algorithm  in  the  compiler,  this  10%  figure  could  be  significantly 
reduced.  Study  efforts  are  currently  underway  to  improve  this  optimizer. 

6.  A very  general  procedure  linkage  convention  was  used  for  both 
the  assembly  language  and  JOVIAL-73/I  versions  of  each  algorithm.  A more 
efficient  convention  is  presently  being  defined  for  use  in  the  DAIS  Project, 
and  this  convention  should  significantly  reduce  the  size  and  execution  time 
of  both  assembly  language  and  JOVIAL-73/I  programs. 

7.  The  "structured"  version  of  Algorithm  112,  MBLT1,  is  much  more 
readable  and  understandable  than  the  original  version,  MBLT.  However, 

the  cost  was  an  approximate  14%  further  inefficiency  for  this  particular 
implementation.  It  is  felt  that  with  sufficient  information  on  the  ACCEPT/ 
HASH/STORE  algorithm,  a complete  redesign  could  be  accomplished  with  structured 
programming  principles  that  would  be  as  efficient  as  the  "unstructured" 

JOVIAL  case  (MBLT).  In  addition  to  HOI.  alternatives  for  JTIDS,  it  is  felt 
that  some  consideration  should  be  given  to  "structured  control"  alternatives 


(e.;;.,  the  MBLT1  example)  since  these  produce  much  superior  algorithms  from 
a "maintainability"  standpoint. 


APPENDIX  A 


ALGORITHM  #1,  COORDINATE  CONVERSION 

ALGORITHM  //I  (COORDINATE  CONVERSION)  DESCRIPTION : 

The  equations  convert  from  the  latitude  and  longitude  reference  frame 
messages  to  the  flat  coordinate  plane  used  for  SAGE,  E-3A  or  485L. 

All  symbols  are  defined  below: 

Definitions 

X,Y  = track  position  relative  to  sector  center,  nautical  miles 
Lp,Ap  = latitude  and  longitude  of  sector  center 

L,A  = reported  latitude  and  longitude  of  track  position 
AL,AA  = differential  latitude  and  longitude  minutes 
Ep  = earth  radius  at  sector  center,  nautical  miles 
<f»  = conformal  latitude 

0 = reported  heading  relative  to  true  north,  0-359  degrees 
S = reported  speed,  0-2047  data  miles  per  hour 
X,Y  = components  of  track  velocity,  knots 
Conversion  equations 

Find  X,Y  as  follows: 

X = .987475  S sin  0 
Y = .987475  S cos  6 

Note:  All  position  data  is  positive  east  and  north,  negative  west 
and  south  except  differential  longitude  which  is  positive 
west  and  negative  east. 

Find,  X,Y  as  follows: 

2E  sinAA  cos  d> 

x = E E. 

1 + sin  <)>  sin  <j>  + cos  cf>  cos  4>  cos  AA 

P P P 
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2E  (sin  <1>  cos  <b  - cos  <b  sin  6 cos  AA  ) 
P P P P 


1 + sin  <)>  si ri  9 + cos  d>  cos  <t  cos  AA 

, P P P 


Find  sin  g , cos  $ and  sin  , cos  9 as  follows  (substituting  L 


for  L when  finding  functions  of  9p)  •' 

Sin  <J>  = sin  L (0.99327733  + 0.00666251  sin2L  + 
0.00005959  sin4L  + 0.00000059  sin6L) 

or  sin  9 = tan" 1 (0. 99327733  tan  L) 

cos  <}>  = (1  - sin2<p)% 

Find  Ep  as  follows: 

3444.054  cos  Lp 

EP  cos  d>p  (1  ~ 0.00672267  sin  Lp)^ 


ASSEMBLY  LANGUAGE  IMPLEMENTATION 


The  following  pages  are  the  resultant  assembler  output  for  Algor- 


ithm #1,  Coordinate  Conversion.  The  procedure  name  is  EQUAMB. 
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JOVIAL-7  3/ I IMPLEMENTATION 

The  following  pages  are  the  resultant  compiler  output  for  the 
JOVIAL-73/I  compilation  of  Algorithm  #1,  Coordinate  Conversion.  The 
procedure  name  is  EQUA. 


c 


4 4 4 4 
4 4|4  4 
4 4 ;4  4 


4 4 • 
4 4 ■ 
4 4 ■ 


4 !4  4 
4)4  4 
4 14  4 
4,4  4 


: 4 4 ■ 
: < 4 ' 
: 4 4 
: 4 4 

■ 4 4 
; 4 < 

: 4 4 

■ 4 4 


: 4 < 
: 4 4 
: 4 4 


: 4 4 
4 4 
4 4 


4 4 ■ 
4 4 < 
4 4 ■ 


4 4 ■ 
4 < . 
4 4 • 


>l==> 


i? 

* =>  => 


3 3 

5 B 


i 3 3 

> B B 


o o : 

3 ' 
'33; 


-3  3 
3 3 
3 3 ‘ 


Jb  ,x  a. 


|.*J  UJ 

j *-  u- 

:'xJ  u) 


x)  UJ 

u;  u.  , 

*3  UJ  : 


1 1 Uu  jJ  ! a-  UJ 


, Id  x)| 
! !d  U" 

) U?  UJ| 


-x  U3 
u;  ui 
uj  u: 


Jt 


19 


'*4 


JOV  ML  V.ChUHjh  y/14//h  'l;44  MODUI.K ! K'HJ  4 , JTS  PRC. 


RKTDRMJ 

£’<!>  11  COORD  IN  ATE  ‘TRANSFORM  AT  I ON 


OCCURrtKNCKS  PERCENTAGE 


I 


•'HI  A H STf^  tf/EA  M LTM  IS, CLAT'TRACKT 


I AcJfC  4 
Or  r HANDS 


HF.CWO'. 


MNEM  Ol-'EI'MDS 


G 

I lu 
i to 


ft  ft 
CN  f>* 


V 

Tj- 

LD 

£ 

£ 

Xv 

rr 

£ 

T 

-»> 

CN 

O' 

* 

CN 

CN 

CN 

CN 

CN 

CN 

~ 

CN 

CN 

•N 

CN 

— 

CN 

CN 

ft 

Id 

* 

♦ 

* 

* 

• 

* 

• 

• 

* 

• 

X 

ft 

CN 

X) 

«r 

3> 

-ft 

3 

£ 

JD 

— 

B 

CN 

3 

£ 

CD 

ft 

CT' 

1 

1 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

—ft 

•N 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

- 

IN 

r— 

- 

i£ 

CN 

• • 

at 

CT' 

CN 

CN 

CN 

CN 

CN 

<r 

£ 

CN 

CN 

CN 

ft 

in 

£ 

-ft 

— 

-a 

o 

ft 

*-d 

C 

-0 

ft- 

ft 

ft 

> 

■> 

-3 

> 

*a* 

> 

r> 

> 

> 

> 

> 

«r 

Cj 

at 

X 

X 

X 

X 

Z 

X 

X 

X 

X 

X 

X 

X 

X 

X 

a 

CO 

3-  V 

j. 

j.' 

L 

JL 

1*2 

a 

L. 

-ft 

£ 

X 

aJ 

LL 

L 

ft 

ft 

[d 

3 

▼ 

•-0 

tO 

£ 

c£ 

iO 

f- 

'£ 

to 

to 

to 

to 

to 

to 

CO 

to 

to 

ft 

£ 

L. 

L- 

x 

al 

•jJ 

X 

[ft 

a J 

-ft 

aj 

•jJ 

lx 

[£ 

[d 

ft 

L»- 

G 

— * 

7 

X 

X 

X 

X 

21 

[ft 

X 

X 

X 

*2 

s 

3 

X 

a 

X 

s> 

3 

7 

X 

X 

X 

X 

r> 

X. 

•• 

T 

a 

-0 

CN 

CN 

tN 

CN 

"N 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

(N 

<• 

? 

i— 

ft) 

ft 

ft 

ft 

ft 

ft 

ft 

r> 

rO 

") 

<3 

r~> 

m 

m 

rn 

ft 

ft 

ft 

ft 

ft 

u 

-* 

• 

to 

«c£ 

“ 

CO 

£> 

3 

m 

'a. 

-c 

•s 

3 

7 

S 

7) 

3> 

S 

3 

S 

s 

S 

3 

S 

3 

■3 

s 

3 

3) 

3 

s 

—i 

•• 

• • 

ft 

cr 

>- 

Cft. 

[ft- 

1ft. 

U. 

[ft 

U. 

[ft 

U. 

Ift 

[ft 

L_ 

U. 

[ft 

U. 

[x. 

[ft 

U. 

[ft 

U. 

[ft 

77 

u> 

3 

ft 

3 

CN 

3 

£ 

C 

3> 

— i 

ft 

C3 

X 

to 

•ft 

* 

ZT 

* 

j 

3 

-J 

-J 

J 

* 

-3 

•_3 

-3 

4> 

X 

J 

-3 

* 

-3 

-J 

_! 

J 

c 

<*• 

7 

'. 

7 

7 

CN 

oj 

1ft 

X 

•c 

I J 

X 

3 

3 

3 

'T 

£ 

-S 

7 

3 

7 

3 

4?- 

CN 

£ 

• 

1 

o 

— 

T 

U 

3 

7 

3 

-- 

3 

3 

3 

3 

3 

3 

3 

3 

— 

-- 

ft 

3 

'w 

S 

3 

7 

3 

3 

N 

T 

“ 

3 

7, 

- 

3 

7 

3 

3 

3 

3 

7 

3 

3 

3 

3 

L 

7, 

3 

3 

7 

7 

7 

7 

3 

3 

7 

3 

O' 

• * 

3 

7 

7 

7 

■J 

7; 

3 

3 

3 

■L 

3 

3 

'J> 

3 

3 

3 

3 

3 

3 

3 

7 

3 

3 

3 

3 

3 

V 

CT 

r 

7 

ft 

•ft] 

jj 

Cij 

J 

u: 

aI 

£ 

b2 

lx) 

•x3 

[£ 

id 

id 

3 

X 

X 

*— 

r— 

— 

— 

4— 

r— 

4ft 

c_ 

u- 

f- 

ft 

ft 

ft 

i— 

ft- 

• 

* 

* 

<T 

<: 

<r 

vT 

4 

• 

«s 

<c 

<r 

* 

■* 

» 

* 

* 

<r 

<r 

<? 

* 

* 

* 

<r 

«J 

«3 

«r 

cO 

3 

3 

_ 

r 

_: 

; 

ft.* 

_ 

-J 

ft-J 

— 

•j 

» 

r. 

* 

J 

31 

Z 

T 

-3 

«r 

—• 

— 

-- 

<r 

•— 

— ■ 

—4 

< 

< 

<r 

•s 

•J 

— 

—4 

-C 

c 

«r 

— « 

— i 

— * 

to 

— 

* 

i 

3 

7 

3 

3 

3 

3 

c 

3 

3 

2 

X 

7 

X 

3 

3 

Ci 

L 

3 

x 

o 

C 

o 

ft 

ft 

CL 

3 

O 

X 

X 

X 

X 

X 

C 

X 

X 

X 

c. 

3. 

c 

ft 

3 

X 

'X 

X 

C 

O 

C 

X 

X 

X 

X 

7t 

ft 

X 

ft 

o 

3 

3 

3 

3 

" 

c 

_ 

_ 

X 



_ 

3' 

7 

3 

3 

3 

r* 

7 

,7 

«! 

x 

U 

■3 

'3 

•j 

7 

-7 

3 

3 

c 

O 

O 

3 

LT 

v> 

05 

■J* 

'5- 

3 

05 

5 

o 

ft 

O 

3 

O 

ft 

'"* 

•JO 

* 

* 

* 

o 

U 

0J 

3 

u 

• 

l-» 

u 

CJ 

* 

* 

* 

• 

• 

U 

U 

U 

• 

* 

• 

0J 

u 

U 

U 

to 

to 

• • 

«? 

3 

ft 

to 

IX 

l J 

O 

T 

;-. 

> 

7 

3 

o 

7 

7 

.■ 

O 

tJ 

. 

r 

2 

U 

iJ 

>* 

r 

N* 

J 

>• 

c 

ft 

a‘ 

* 

«.' 

o 

c 

uT 

a 

aJ 

1ft'1 

u2 

c 

I*,' 

jJ 

£ 

►ft 

O 

o 

3 

X 

Iw 

o 

o 

7 

jJ 

ft 

Id 

ft 

X 

tO 

o 

ft 

o 

ft 

3 

3 

-L 

3 

t- 

— 

— < 

ft 

f- 

-3 

r- 

t- 

a. 

X 

.« 

X 

X 

ft 

)- 

ft 

X 

X 

X 

ft 

ft 

— 

r- 

vl 

.ft 

V 

X 

.» 

X 

O 

CL 

C^ 

CL 

■— • 

— • 

—> 

•— 

X 

-ft 

•— < 

ftft 

3 

X 

CL 

a 

X 

-ft 

ft 

•—< 

a 

X 

a 

— « 

•— « 

— i 

— 

-3 

»0 

o 

id 

a 

x 

- 

•t 

ft 

X 

Uj 

ft 

X 

*— « 

X 

LJ 

U) 

X 

X 

«.* 

7 

ft 

o 

a 

o 

> 

r- 

U 

ft 

[ft 

JC 

f- 

u 

H 

to 

— 

— < 

• 

< 

% 

% 

< 

<- 

U 

r 

% 

% 

2. 

i— 

•• 

•• 

'aJ 

to 

*— 

X 

a. 

• ; 

r; 

<r 

7 

ft 

ft 

2 

«t 

1 J 

to 

t/^ 

X 

o 

— 

T 

■j* 

c 

% 

-*1 

a) 

X 

u 

Lft 

X 

21 

X 

r 

*r 

> 

3 

1 

J* 

— 

a. 

X 

'.0 

x 

•-* 

•-o 

U 

% 

X 

o 

X 

-a. 

a 

ft 

2L 

N 

X 

X 

X 

to 

ft 

— 

a 

a 

% 

ft 

— 

c— 

3 

c 

% 

• 

X 

[ft 

CL 

% 

% 

ft 

c— 

ft 

<5 

ft 

• 

a 

X 

3 

; 

< 

c 

lr 

.0 

tO 

ft 

L 

«c 

-ft 

c.. 

*— 

ft 

a 

< 

' 

•/ 

i. 

x 

? 

►- 

« 

• 

c 

k— 

•JO 

ft 

— 

3 

G 

«r 

— • 

o 

y> 

3 

3 

■— « 

•1 

X 

f- 

■t 

** 

3 

. * 

X 

i. 

a- 

-ft 

—• 

ft 

X 

7* 

< 

X 

X 

>• 

—• 

0 

«r 

.* 

•>< 

ft 

*5 

x 

f* 

[J 

c» 

IX 

o 

3 

[ft 

T 

— 

— 

_3 

ft 

c. 

a 

fx. 

V3 

o 

CO 

CO 

<0 

ft 

V 

X 

X 

>- 

x 

C 

— Ift 

— 

t*. 

ft  ft 
CN  CN 


£ 


o? 
«r 
i o 
iQ 


26 


dot)  SfC 


APPENDIX  B 


ALGORITHM  #2,  ACCEPT /HASH /STORE 
(ORIGINAL  JTIDS  FLOW  CHART) 

ALGORITHM  #2  (ACCEPT/HASH/STORE)  DESCRIPTION: 

The  charted  algorithm  examines  a received  JTIDS  message  for  the 
LIBRARY  or  INPUT  MESSAGE  MANAGEMENT  functions.  It  codes  bits  to 
indicate  whether  the  message  uses  simulated  or  live  data  and  whether 
it  contained  friendly  or  hostile  ground,  air  or  sea  data,  etc.  The 
logic  flow  chart,  as  received  from  the  JTIDS  Office,  is  shown  on  the 


attached  two  pages. 


ASSEMBLY  LANGUAGE  IMPLEMENTATION 


The  following  pages  are  the  resultant  assembler  output  for 
Algorithm  #2,  ACCEPT/HASH/STORE.  The  procedure  (named  ACHAST)  is 
coded  exactly  as  the  original  JTIDS  specification  (flowchart)  dictated. 
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LOCAL  PAlA  At. LOCATION 


hi , SUB 'CAT 
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JOVIAL- 7 3/ I IMPLEMENTATION 


The  following  pages  are  Che  resultant  compiler  output  for  the 
JOVIAL-73/I  compilation  of  Algorithm  #2,  ACCEPT/HASH/STORE.  This 
procedure  (named  MBLT)  is  coded  exactly  as  the  original  JTIDS 
specification  (flow  chart)  dictated. 
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APPENDIX  C 


ALGORITHM  #2,  ACCEPT/HASH/STORE  ("STRUCTURED"  FLOW  CHART) 

ALGORITHM  #2  (ACCEPT/HASH/STORE)  DESCRIPTION 

This  section  documents  the  results  of  restructuring  the  logic 
structure  contained  in  Appendix  "B".  In  lieu  of  the  logic  conventions 
of  Appendix  ”B"  (FORTRAN-type  IF  statements,  GO  TO's,  etc),  a set  of 
structured  programming  control  constructs  (IF  THEN  ELSE,  FOR  WHILE, 
etc)  were  used.  The  algorithm  (ACCEPT/HASH/STORE)  was  re-charted  and 
in  turn  re-coded  in  JOVIAL-73/I.  The  resultant  flow  chart  is  contained 
on  the  following  page. 


ACCEPT,  HASH,  STORE  ALGORITHM 


JOVIAL- 7 3/ I IMPLEMENTATION 


The  following  pages  are  the  resultant  compiler  output  for  the 
JOVIAL- 7 3/ I compilation  of  Algorithm  # 2,  ACCEPT/HASH/STORE.  This 
procedure  (named  MBLT  1)  is  coded  according  to  structured  programming 
guidelines. 
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